`formatPopulation.SpatialPolygonsDataFrame` <-
function(popdata, ...) {

formatPopulation(popdata@data, ...)

}